/*
**  Source file for mscr. (c) 2007 Per-Erik Forssen
**
**  This program is free software; you can redistribute it and/or modify
**  it under the terms of the GNU General Public License as published by
**  the Free Software Foundation; either version 2 of the License, or
**  (at your option) any later version.
**  
**  See the file COPYING for details.
**
*/
#define TABLE_SIZE 400
static double chitab1[]={0,  9.86678e-06,  3.94675e-05,  8.88034e-05,
                  0.000157876,  0.000246689,  0.000355245,  0.000483549,
                  0.000631605,  0.00079942,  0.000987,  0.00119435,
                  0.00142149,  0.00166841,  0.00193513,  0.00222166,
                  0.00252802,  0.0028542,  0.00320024,  0.00356613,
                  0.0039519,  0.00435756,  0.00478312,  0.00522861,
                  0.00569404,  0.00617943,  0.00668479,  0.00721016,
                  0.00775554,  0.00832097,  0.00890646,  0.00951204,
                  0.0101377,  0.0107836,  0.0114495,  0.0121357,
                  0.0128421,  0.0135688,  0.0143157,  0.0150829,
                  0.0158704,  0.0166784,  0.0175067,  0.0183554,
                  0.0192247,  0.0201144,  0.0210247,  0.0219555,
                  0.022907,  0.0238791,  0.0248719,  0.0258854,
                  0.0269197,  0.0279749,  0.0290509,  0.0301478,
                  0.0312656,  0.0324045,  0.0335643,  0.0347453,
                  0.0359474,  0.0371708,  0.0384153,  0.0396812,
                  0.0409684,  0.042277,  0.043607,  0.0449586,
                  0.0463317,  0.0477265,  0.0491429,  0.0505811,
                  0.0520411,  0.053523,  0.0550268,  0.0565526,
                  0.0581005,  0.0596705,  0.0612627,  0.0628771,
                  0.0645139,  0.0661731,  0.0678548,  0.069559,
                  0.0712859,  0.0730354,  0.0748078,  0.076603,
                  0.0784211,  0.0802622,  0.0821265,  0.0840139,
                  0.0859246,  0.0878587,  0.0898161,  0.0917972,
                  0.0938018,  0.0958301,  0.0978823,  0.0999583,
                  0.102058,  0.104182,  0.106331,  0.108503,
                  0.1107,  0.112922,  0.115168,  0.117438,
                  0.119734,  0.122054,  0.1244,  0.12677,
                  0.129166,  0.131587,  0.134034,  0.136506,
                  0.139004,  0.141528,  0.144077,  0.146653,
                  0.149255,  0.151884,  0.154538,  0.15722,
                  0.159928,  0.162663,  0.165425,  0.168214,
                  0.17103,  0.173874,  0.176745,  0.179644,
                  0.182571,  0.185526,  0.188509,  0.19152,
                  0.19456,  0.197629,  0.200726,  0.203852,
                  0.207008,  0.210193,  0.213407,  0.21665,
                  0.219924,  0.223228,  0.226562,  0.229926,
                  0.23332,  0.236746,  0.240202,  0.24369,
                  0.247208,  0.250759,  0.254341,  0.257955,
                  0.261601,  0.265279,  0.26899,  0.272734,
                  0.276511,  0.28032,  0.284164,  0.288041,
                  0.291952,  0.295897,  0.299876,  0.303891,
                  0.307939,  0.312024,  0.316143,  0.320298,
                  0.324489,  0.328716,  0.33298,  0.33728,
                  0.341617,  0.345992,  0.350404,  0.354854,
                  0.359341,  0.363868,  0.368433,  0.373037,
                  0.377681,  0.382364,  0.387087,  0.39185,
                  0.396655,  0.4015,  0.406386,  0.411314,
                  0.416284,  0.421297,  0.426352,  0.43145,
                  0.436592,  0.441778,  0.447008,  0.452282,
                  0.457602,  0.462967,  0.468378,  0.473835,
                  0.479339,  0.48489,  0.490489,  0.496136,
                  0.501831,  0.507575,  0.513369,  0.519212,
                  0.525106,  0.531051,  0.537047,  0.543095,
                  0.549195,  0.555349,  0.561556,  0.567817,
                  0.574132,  0.580503,  0.586929,  0.593412,
                  0.599952,  0.606549,  0.613204,  0.619918,
                  0.626692,  0.633525,  0.64042,  0.647375,
                  0.654393,  0.661474,  0.668618,  0.675827,
                  0.6831,  0.690439,  0.697845,  0.705318,
                  0.712859,  0.720469,  0.728149,  0.7359,
                  0.743722,  0.751617,  0.759584,  0.767626,
                  0.775743,  0.783937,  0.792207,  0.800556,
                  0.808983,  0.817491,  0.82608,  0.834751,
                  0.843506,  0.852345,  0.86127,  0.870282,
                  0.879382,  0.888572,  0.897852,  0.907224,
                  0.916689,  0.926249,  0.935904,  0.945658,
                  0.95551,  0.965462,  0.975516,  0.985674,
                  0.995937,  1.00631,  1.01678,  1.02737,
                  1.03807,  1.04888,  1.05981,  1.07086,
                  1.08202,  1.09331,  1.10472,  1.11625,
                  1.12791,  1.13971,  1.15163,  1.16369,
                  1.17588,  1.18822,  1.20069,  1.21331,
                  1.22608,  1.239,  1.25207,  1.26529,
                  1.27868,  1.29222,  1.30593,  1.31981,
                  1.33386,  1.34808,  1.36248,  1.37707,
                  1.39184,  1.4068,  1.42195,  1.4373,
                  1.45286,  1.46862,  1.48459,  1.50078,
                  1.51719,  1.53383,  1.5507,  1.5678,
                  1.58515,  1.60275,  1.6206,  1.63872,
                  1.6571,  1.67576,  1.6947,  1.71393,
                  1.73346,  1.75329,  1.77344,  1.7939,
                  1.8147,  1.83585,  1.85734,  1.87919,
                  1.90142,  1.92403,  1.94703,  1.97044,
                  1.99427,  2.01854,  2.04325,  2.06843,
                  2.09409,  2.12024,  2.14691,  2.17411,
                  2.20186,  2.23018,  2.25909,  2.28862,
                  2.31879,  2.34962,  2.38115,  2.4134,
                  2.4464,  2.48019,  2.5148,  2.55027,
                  2.58663,  2.62393,  2.66223,  2.70155,
                  2.74197,  2.78353,  2.8263,  2.87034,
                  2.91574,  2.96256,  3.01089,  3.06083,
                  3.11249,  3.16597,  3.22139,  3.27891,
                  3.33867,  3.40085,  3.46563,  3.53323,
                  3.6039,  3.67791,  3.75558,  3.83726,
                  3.92338,  4.01442,  4.11095,  4.21364,
                  4.3233,  4.4409,  4.56764,  4.70499,
                  4.85482,  5.01955,  5.20235,  5.40752,
                  5.64113,  5.91206,  6.2341,  6.63044,
                  7.14465,  7.87491,  9.13601,  400 };
static double chitab3[]={0,  0.0150057,  0.0239478,  0.0315227,
                  0.0383427,  0.0446605,  0.0506115,  0.0562786,
                  0.0617174,  0.0669672,  0.0720573,  0.0770099,
                  0.081843,  0.0865705,  0.0912043,  0.0957541,
                  0.100228,  0.104633,  0.108976,  0.113261,
                  0.117493,  0.121676,  0.125814,  0.12991,
                  0.133967,  0.137987,  0.141974,  0.145929,
                  0.149853,  0.15375,  0.15762,  0.161466,
                  0.165287,  0.169087,  0.172866,  0.176625,
                  0.180365,  0.184088,  0.187794,  0.191483,
                  0.195158,  0.198819,  0.202466,  0.2061,
                  0.209722,  0.213332,  0.216932,  0.220521,
                  0.2241,  0.22767,  0.231231,  0.234783,
                  0.238328,  0.241865,  0.245395,  0.248918,
                  0.252435,  0.255947,  0.259452,  0.262952,
                  0.266448,  0.269939,  0.273425,  0.276908,
                  0.280386,  0.283862,  0.287334,  0.290803,
                  0.29427,  0.297734,  0.301197,  0.304657,
                  0.308115,  0.311573,  0.315028,  0.318483,
                  0.321937,  0.32539,  0.328843,  0.332296,
                  0.335749,  0.339201,  0.342654,  0.346108,
                  0.349562,  0.353017,  0.356473,  0.35993,
                  0.363389,  0.366849,  0.37031,  0.373774,
                  0.377239,  0.380706,  0.384176,  0.387648,
                  0.391123,  0.3946,  0.39808,  0.401563,
                  0.405049,  0.408539,  0.412032,  0.415528,
                  0.419028,  0.422531,  0.426039,  0.429551,
                  0.433066,  0.436586,  0.440111,  0.44364,
                  0.447173,  0.450712,  0.454255,  0.457803,
                  0.461356,  0.464915,  0.468479,  0.472049,
                  0.475624,  0.479205,  0.482792,  0.486384,
                  0.489983,  0.493588,  0.4972,  0.500818,
                  0.504442,  0.508073,  0.511711,  0.515356,
                  0.519008,  0.522667,  0.526334,  0.530008,
                  0.533689,  0.537378,  0.541075,  0.54478,
                  0.548492,  0.552213,  0.555942,  0.55968,
                  0.563425,  0.56718,  0.570943,  0.574715,
                  0.578497,  0.582287,  0.586086,  0.589895,
                  0.593713,  0.597541,  0.601379,  0.605227,
                  0.609084,  0.612952,  0.61683,  0.620718,
                  0.624617,  0.628526,  0.632447,  0.636378,
                  0.64032,  0.644274,  0.648239,  0.652215,
                  0.656203,  0.660203,  0.664215,  0.668238,
                  0.672274,  0.676323,  0.680384,  0.684457,
                  0.688543,  0.692643,  0.696755,  0.700881,
                  0.70502,  0.709172,  0.713339,  0.717519,
                  0.721714,  0.725922,  0.730145,  0.734383,
                  0.738636,  0.742903,  0.747185,  0.751483,
                  0.755796,  0.760125,  0.76447,  0.768831,
                  0.773208,  0.777601,  0.782011,  0.786438,
                  0.790882,  0.795343,  0.799821,  0.804318,
                  0.808831,  0.813363,  0.817913,  0.822482,
                  0.827069,  0.831676,  0.836301,  0.840946,
                  0.84561,  0.850295,  0.854999,  0.859724,
                  0.864469,  0.869235,  0.874022,  0.878831,
                  0.883661,  0.888513,  0.893387,  0.898284,
                  0.903204,  0.908146,  0.913112,  0.918101,
                  0.923114,  0.928152,  0.933214,  0.938301,
                  0.943413,  0.94855,  0.953713,  0.958903,
                  0.964119,  0.969361,  0.974631,  0.979929,
                  0.985254,  0.990608,  0.99599,  1.0014,
                  1.00684,  1.01231,  1.01781,  1.02335,
                  1.02891,  1.0345,  1.04013,  1.04579,
                  1.05148,  1.05721,  1.06296,  1.06876,
                  1.07459,  1.08045,  1.08635,  1.09228,
                  1.09826,  1.10427,  1.11032,  1.1164,
                  1.12253,  1.1287,  1.1349,  1.14115,
                  1.14744,  1.15377,  1.16015,  1.16656,
                  1.17303,  1.17954,  1.18609,  1.19269,
                  1.19934,  1.20603,  1.21278,  1.21958,
                  1.22642,  1.23332,  1.24027,  1.24727,
                  1.25433,  1.26144,  1.26861,  1.27584,
                  1.28312,  1.29047,  1.29787,  1.30534,
                  1.31287,  1.32046,  1.32812,  1.33585,
                  1.34364,  1.3515,  1.35943,  1.36744,
                  1.37551,  1.38367,  1.39189,  1.4002,
                  1.40859,  1.41705,  1.42561,  1.43424,
                  1.44296,  1.45177,  1.46068,  1.46967,
                  1.47876,  1.48795,  1.49723,  1.50662,
                  1.51611,  1.52571,  1.53541,  1.54523,
                  1.55517,  1.56522,  1.57539,  1.58568,
                  1.59611,  1.60666,  1.61735,  1.62817,
                  1.63914,  1.65025,  1.66152,  1.67293,
                  1.68451,  1.69625,  1.70815,  1.72023,
                  1.73249,  1.74494,  1.75757,  1.77041,
                  1.78344,  1.79669,  1.81016,  1.82385,
                  1.83777,  1.85194,  1.86635,  1.88103,
                  1.89598,  1.91121,  1.92674,  1.94257,
                  1.95871,  1.97519,  1.99201,  2.0092,
                  2.02676,  2.04471,  2.06309,  2.08189,
                  2.10115,  2.12089,  2.14114,  2.16192,
                  2.18326,  2.2052,  2.22777,  2.25101,
                  2.27496,  2.29966,  2.32518,  2.35156,
                  2.37886,  2.40717,  2.43655,  2.46709,
                  2.49889,  2.53206,  2.56673,  2.60305,
                  2.64117,  2.6813,  2.72367,  2.76854,
                  2.81623,  2.86714,  2.92173,  2.98059,
                  3.04446,  3.1143,  3.19135,  3.27731,
                  3.37455,  3.48653,  3.61862,  3.77982,
                  3.98692,  4.2776,  4.77167,  133.333 };
